(defmethod fgf-foo ((x integer)) :integer)
(defmethod fgf-foo ((x string)) :string)
(test dispatch-integer (fgf-foo 1) (:integer))
(test dispatch-string (fgf-foo "testing") (:string))
(defmethod fgf-foo ((x symbol)) :symbol)
(test dispatch-symbol (fgf-foo :yadda) (:symbol))
(test-expect-error dispatch-no-applicable-method (fgf-foo 1.2) :description "This should not dispatch")
